unit UMenu;

interface

uses Menus;

type
  TMenu = class(TMenuItem)
    private
      FNome: String;
      FMenuItem: TMenuItem;

      function GetNome: String;
      function GetMenuItem: TMenuItem;

      function CreateMenu(NomeRaiz: array of String): Boolean;

      procedure SetMenuItem(const Value: TMenuItem);
      procedure SetNome(const Value: String);

    protected

    public
      constructor Create;
      property Nome: String read GetNome write SetNome;
      property MenuItem: TMenuItem read GetMenuItem write SetMenuItem;
    
  end;

implementation

{ TMenu }

constructor TMenu.Create;
begin
  //
end;

function TMenu.CreateMenu(NomeRaiz: array of String): Boolean;
begin
 // if(Self.FMenuItem)then
end;

function TMenu.GetMenuItem: TMenuItem;
begin
  Result := FMenuItem;
end;

function TMenu.GetNome: String;
begin
  Result := FNome;
end;

procedure TMenu.SetMenuItem(const Value: TMenuItem);
begin
  FMenuItem := Value;
end;

procedure TMenu.SetNome(const Value: String);
begin
  FNome := Value;
end;

end.
 